﻿Imports System.Data.SqlClient
Public Class frmServer
    Public ReadOnly Property UserName() As String
        Get
            Return txtUserName.Text
        End Get
    End Property


    Public ReadOnly Property Pass() As String
        Get
            Return txtPassWord.Text
        End Get
    End Property

    Private Sub frmServer_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim sqldtsrc As Data.Sql.SqlDataSourceEnumerator = Data.Sql.SqlDataSourceEnumerator.Instance
        Dim dtsql As New Data.DataTable()
        dtsql = sqldtsrc.GetDataSources()
        cboServer.DataSource = dtsql
        cboServer.DisplayMember = dtsql.Columns(0).ColumnName
        cboServer.ValueMember = dtsql.Columns(0).ColumnName
    End Sub
End Class